home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dialog / showdi~1.txt < prev    next >
Encoding:
Text File  |  1999-07-26  |  221 b   |  13 lines
  1. <%
  2. Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
  3. Set MyFiles=MyDirectory.GetFolder(Server.MapPath("/eworld"))
  4. For each filefound in MyFiles.files
  5. %>
  6.  
  7. <% =filefound.Name %><br>
  8.  
  9. <%
  10. Next
  11. %>
  12.  
  13.